home *** CD-ROM | disk | FTP | other *** search
/ Advanced Placement Companion: Precalculus / Advanced Placement Companion: Precalculus.iso / pc / M_DIR / 12-04100.DIR / 00009_Button Lingo.ls < prev    next >
Encoding:
Text File  |  1998-04-15  |  423 b   |  14 lines
  1. on button
  2.   set thisOne to the clickOn
  3.   set the locH of sprite thisOne to the locH of sprite thisOne + 2
  4.   set the locV of sprite thisOne to the locV of sprite thisOne + 2
  5.   updateStage()
  6.   puppetSound("click")
  7.   updateStage()
  8.   repeat while soundBusy(1)
  9.   end repeat
  10.   set the locH of sprite thisOne to the locH of sprite thisOne - 2
  11.   set the locV of sprite thisOne to the locV of sprite thisOne - 2
  12.   updateStage()
  13. end
  14.